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PREFACE 



Ce fascicule des travaux diriges d'algorithmique et structures de donnees est a l'intention 
des etudiants de la premiere annee en Licence en Informatique Appliquee a la Gestion de la 
Faculte des Sciences Juridiques, Economique et de Gestion de Jendouba. 

Le fascicule comporte 6 TD avec leurs corrections qui sont reparties comme suit : 

TD1 : Les actions elementaires simples 

TD2 : Les structures conditionnelles 

TD3 : Les structures iteratives 

TD4 : Les chaines de caracteres 

TD5 : Les sous-programmes 

TD6 : Les tableaux 

L'objectif principal est de faire apprendre aux etudiants a resoudre un probleme. Nous avons 
introduit dans le TD1 toutes les structures de donnees qui vont etre les objets de manipulation de 
toutes les definitions de controle qui suivront. 

Quant aux structures de controle, nous les avons developpees separement dans deux travaux 
diriges (TD2 et TD3). Nous commencerons par des exercices sur les structures simples, puis les 
structures conditionnelles et enfin les structures iteratives. 

Ces trois travaux diriges nous permettrons de manipuler les chaines de caracteres qui seront notre 
TD4. Nous traiterons dans ce TD les programmes generalement poses afin que l'etudiant sera 
capable de resoudre des problemes qui leurs ressembles. 

Ces outils nous permettront par la suite d'aborder les fonctions et les procedures. En effet, les 
sous-programmes sont la base de la programmation pour simplifier l'ecriture d'un programme et 
lui rendre plus lisible. 

Nous terminons a la fin par le TD5 qui sera consacre pour les tableaux et les traitements avances 
et on verra dans ce dernier les algorithmes de recherche et les algorithmes de tri. 

Avant d'assister a la seance de TD, chaque etudiant doit preparer serieusement le TD se 
rapportant a la manipulation qu'il va effectuer et ce a l'aide du cours. 

Enfin, nous esperons que le present ouvrage aura le merite d'etre un bon support pedagogique 
pour l'enseignant et un document permettant une concretisation experimental pour l'etudiant. 



Les auteurs 
Riadh IMED Fareh 
Riadh BOUSLIMI 



FICHE MATIERE 



Objectifs generaux 

II s'agit d'une serie de travaux diriges d'algorithmique et structures de donnees I. 
lis ont pour but de : 

- Apprendre a concevoir des algorithmes efficaces independamment des 
langages ou environnements d' execution, etudier les types de donnees et 
leurs utilisations courantes, a Paide d' algorithmes adaptes et optimises. 

- Acquerir des Bases algorithmiques (affectation, entrees - sorties, structures 
conditionnelles, structures iteratives et boucles), notion d' emplacement 
memoire (Tableaux), procedures, fonctions, passage des parametres, 
recherche, tris. 



Pre-requis 

Architecture des ordinateurs 



Public-cible 

Ces travaux diriges sont destines essentiellement aux etudiants de la premiere annee 
licence fondamentale en informatique appliquee a la Gestion, semestrel 



Volume horaire 

Ce cours de ce module est presente, de maniere hebdomadaire, comme suit: 

- Ih30mn de cours 

- Ih30mn de Travaux diriges pour chaque groupe 
Soit en total : 42h 



Moyens pedagogiques 

- Tableau 

- Salle de TD 

- Polycopies des Travaux diriges 



Evaluation 

- Coefficient : 1.5 

- Note du controle continu : 30% 

- Note d'examen : 70% 
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Faculte des Sciences Juridiques, 
Economiques et de Gestion de Jendouba 


Annee Universitaire : 2006/2007 - Semestre 1 


Module : Algorithmique et structures de donnees I 


Classe : l" re LFIAG 


Enseignants: Riadh IMED FEREH & Riadh BOUSLIMI 



TD n° 1 

(Les actions elementaires simples) 

Objectifs 

^ Connaitre le vocabulaire de base de programmation (constante, variable, expression,...) 
S Comprendre la demarche de programmation 
^ Comprendre les actions algorithmiques simples 
S Connaitre la structure generale d'un algorithme 
Exercice 1 

1. Quel est l'ordre de priorite des differents operateurs de 1' expression suivante : 
((3 * a)-x A 2)-(((c-d)/(a/b))/d) 

2. Evaluer l'expression suivante : 

5 + 2 * 6 - 4 + (8 + 2 A 3) / (2 - 4 + 5 * 2) 

3. Ecrire la formule suivante sous forme d'une expression arithmetique : 

(3-xy) 2 -4ac 
7.x — z 

Exercice 2 

Sachant que a = 4, b = 5, c = -1 etd = 0, evaluer les expressions logiques suivantes : 

1. (a < b) ET (c >= d) 

2. NON(a<b)OU(c#b) 

3. NON (a # b A 2) OU (a * c < d)) 
Exercice 3 

Donner toutes les raisons pour lesquelles l'algorithme suivant est incorrect : 
Algoritme Incorrect 
x,y : Entier 
z : Reel 
Debut 

z <r x + 2 
y ^- z 

x * 2 <- 3 +z 
y <- 5y + 3 

Fin. 
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Exercice 4 

Ecrire un algorithme qui lit deux entiers au clavier et qui affiche ensuite leur somme et leur 
produit. 

Exercice 5 

Ecrire un algorithme qui calcule et affiche la resistance d'un composant electronique en 
utilisant la loi d'Ohm : 



U = Rxl avec 



U : Tension en V 
R : Resistance en Q 
I : Intensite en A 
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Correction du TD 1 



Exercice 1 

1. ((3 * a) - x A 2) - (((c-d) / (a/b)) / d) 

1 3 284 657 

2. 5 + 2*6-4 + (8 + 2 A 3)/(2-4 + 5*2)=15 

3. (( 3 - x * y) A 2 - 4 * a * c) / (2 * x - z) 

Exercice 2 

1. Faux 

2. Vrai 

3. Faux 

NB : le resultat d'une expression logique est toujours Vrai ou Faux. 



Exercice 3 



1 


Algoritme Incorrect 


2 


x,y : Entier 


3 


z : Reel 


4 


Debut 


5 


z <- x + 2 


6 


y z 


7 


x*2 ^3 + z 


8 


y <r 5y + 3 


9 


Fin. 


10 





Cet algorithme est incorrect pour plusieurs raisons: 

■ Ligne 1 : le mot Algorithme s'ecrit avec un "h" au milieu. 

■ Ligne 2 : la declaration des variables commence par le mot "Var". 

■ Ligne 5 : la valeur de x est indeterminee. 

■ Ligne 6 : incompatibilite de type (un reel affecte a une variable de type entier). 

■ Ligne 7 : le membre gauche d'une affectation doit etre une variable. 

■ Ligne 8 : il faut ecrire 5 *y et non 5y. 
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Exercice 4 : calcul de la somme et du produit de deux entiers 

Algorithme Som Prod 
Var 

a , b , s , p : Entier 

Debut 

Ecrire("Entrer la valeur de a="), Lire(a) 
Ecrire("Entrer la valeur de b="), Lire(b) 
s <r a + b 
p <- a * b 

Ecrire("Somme=",s) 
Ecrire("Produit=",p) 

Fin. 

Exercice 5 : calcul de la resistance d'un composant electrique 

Algorithme Resistance 
Var 

U, I , R : Reel 

Debut 

Ecrire("Entrer la tension-'), Lire(U) 
Ecrire("Entrer l'intensite="), Lire(I) 
R <- U / I (* on suppose toujours I #0 *) 
Ecrire("Resistance =",R," Ohms") 

Fin. 
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Module : Algorithmique et structures de donnees I 


Faculte des Sciences Juridiques, 
Economiques et de Gestion de Jendouba 


Classe : l" re LFIAG 


Enseignants: Riadh IMED FEREH & Riadh BOUSLIMI 



TD n°2 

(Les structures conditionnelles) 

Objectif 

S Construire des algorithmes comportant des traitements conditionnels. 



Exercice 1 

Ecrire un algorithme qui calcule et affiche la valeur absolue d'un entier quelconque lu 
au clavier. 

Exercice 2 

Ecrire un algorithme qui calcule et affiche si la valeur d'un entier quelconque lu au 
clavier est paire ou impaire. 

Exercice 3 

Ecrire un algorithme permettant de resoudre dans R une equation du second degre de 
la forme ax 2 +bx+c=0. 

Exercice 4 

Ecrire un algorithme permettant de simuler une calculatrice a 4 operations(+, -, *, et /). 
Utiliser la structures "selon" pour le choix de l'operation a affecter. 

Exercice 5 

Ecrire un algorithme qui lit un caractere au clavier puis affiche s'il s'agit d'une lettre 
minuscule, d'une lettre majuscule, d'un chiffre ou d'un caractere special. 

Exercice 6 

Une annee bissextile (contient 366 jours) si elle est multiple de 4, sauf les annees de 
debut de siecle (qui se terminent par 00) qui ne sont bissextiles que si elles sont 
divisibles par 400. 

Exemples 

■ 1980 et 1996 sont bissextiles car elles sont divisibles par 4 

■ 2000 est une annee bissextile car elle est divisible par 400 

■ 2100 et 3000 ne sont pas bissextiles car elles ne sont pas divisibles par 400. 

Ecrire un algorithme qui permet de determiner si un entier positif donne correspond a 
une annee bissextile ou non. 
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Correction du TD 2 



Exercice 1 

Algorithme ValAbs 
Var 

x, va : Entier 

Debut 

Ecrire("Entrer un entier="), Lire(x) 
Si ( x >= 0 ) Alors 
va <- x 

Sinon 

va <- -x 

FinSi 

Ecrire("|",x,"|=",va) 

Fin. 

Exercice 2 

Algorithme pairimpair 
Var 

x : Entier 

Debut 

Ecrire("Entrer un entier="), Lire(x) 
Si ( x Mod 2 = 0) Alors 

Ecrire("c'est un entier pair") 

Sinon 

Ecrire("c'est un entier impair") 

FinSi 

Fin. 

Exercice 3 

Algorithme equa2d 
Var 

a,b,c,delta : Reel 

Debut 

Ecrire("Entrer la valeur de a(non nulle)="), Lire(a) 
Ecrire("Entrer la valeur de b="), Lire(b) 
Ecrire("Entrer la valeur de c="), Lire(c) 
delta <- b A 2 - 4*a*c 
Si ( delta<0 ) Alors 

Ecrire("pas de solution dans R") 
Sinon Si ( delta=0 ) Alors 

Ecrire("xl = x2 = ",-b/(2*a)) 

Sinon 

Ecrire("xl = ",(-b-racine(delta))/(2*a)) 
Ecrire("x2 = ",(-b+racine(delta))/(2*a)) 

FinSi 

Fin. 

Remarque : Dans cet algorithme, on suppose que l'utilisateur va toujours entrer une valeur de 
a non nulle. Sinon ce n'est pas une equation du second degre. 
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Exercice 4 

Algorithme calculatrice 
Var 

vall,val2 : Reel 
operation: caractere 

Debut 

Ecrire("Premiere operande-'), Lire(vall) 
Ecrire("Operation="), Lire(operation) 
Ecrire("Deuxieme operande-'), Lire(val2) 
Selon operation Faire 

"+" : Ecrire("Resultat =", vail + val2) 
"-" : Ecrire("Resultat =", vail - val2) 
"*" : Ecrire("Resultat =", vail * val2) 
7": Si ( val2 # 0) Alors 

Ecrire("Resultat =", vail / val2) 
Sinon 

Ecrire("Division par zero!") 
FinSi 

Sinon 

Ecrire("operateur errone. . . ") 

FinSi 

Fin. 



Exercice 5 

Algorithme Nature_Caractere 
Var 

c: caractere 

Debut 

Ecrire("Entrer un caractere-'), Lire(c) 
Selon c Faire 

"a".."z" : Ecrire("C'est une lettre miniscule") 

"A".."Z" : Ecrire("C'est une lettre majuscule") 

"0".."9" : Ecrire("C*est un chiffre") 

Sinon 

Ecrire("c'est un caractere special") 

FinSi 

Fin. 

Exercice 6 

Algorithme Bissextile 
Var 

n : Entier 

Debut 

Ecrire("Entrer l'annee-'), Lire(n) 

Si ( n Mod 400 = 0) OU (( n Mod 100 # 0) ET (n Mod 4) = 0))<0 ) Alors 
Ecrire("Annee bissextile") 

Sinon 

Ecrire("Annee non bissextile") 

FinSi 

Fin. 
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Annee Universitaire : 2006/2007 - Semestre 1 


Module : Algorithmique et structures de donnees I 


Classe : l" re LFIAG 


Enseignants: Riadh IMED FEREH & Riadh BOUSLIMI 



TD n°3 

(Les structures iteratives) 

Objectif 

S Construire des algorithmes comportant des traitements iteratifs. 
Exercice 1 

Ecrire un algorithme qui lit un entier positif n puis affiche tous ses diviseurs. 



Exercice 2 

Ecrire un algorithme avec trois versions qui lit un entier positif n puis calcule et 
affiche son factoriel selon la formule n! = 1 x 2 x ... x n. 

■ Pour ...F aire 

■ Tant que ... Faire 

■ Repeter ... Jusqu'a... 

Exercice 3 

Ecrire un algorithme permettant de : 

■ Lire un nombre fini de notes comprises entre 0 et 20. 

■ Afficher la meilleure note, la mauvaise note et la moyenne de toutes les notes. 

Exercice 4 

Calculer a b avec a reel et b entier par multiplication successives. 



Exercice 5 

Ecrire un algorithme qui lit un entier positif et verifie si ce nombre est premier ou non. 
Remarque : un nombre premier n'est divisible que par 1 ou par lui-meme. 



Exercice 6 

Ecrire un algorithme qui lit deux entiers positifs A et B puis calcule et affiche leur 
PGCD en utilisant la methode suivante: 

■ Si A = B; PGCD(A,B) = A 

■ Si A>B; PGCD(A,B) = PGCD(A-B,B) 

■ Si A<B; PGCD(A,B) = PGCD(A,B-A) 

Exemple: PGCD(18,45) = PGCD(18,27) = (PGCD(18,9) = PGCD(9,9) = 9 
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Exercice 7 

Ecrire un algorithme qui calcule le PPCM (Plus Petit Commun Multiple) de 2 entiers 
positifs A et B en utilisant la methode suivante : 

■ Permuter, si necessaire, les donnees de facon a ranger dans A le plus grand des 
2 entiers; 

■ Chercher le plus petit multiple de A qui est aussi mutiple de B. 
Exemple: PPCM(6,8) = PPCM(8,6) = 24. 

Exercice 8 

Ecrire un algorithme qui calcule et affiche les 10 premiers termes de la suite de 
Fibonacci. 

La suite de Fibonacci est definie par : 

■ F 0 =l 

■ Fi = 1 

■ F n = F n _ 2 + F n _i pourn> 1. 

Exercice 9 

Ecrire un algorithme qui calcule la somme harmonique s = ^ T ; n est un entier 

i=i 1 

positif lu a partir du clavier 

Exemple: Pour n = 3, s = 1 + 1/2 + 1/3 = 1.83 

Exercice 10 

Parmi tous les entiers superieurs a 1 , seuls 4 peuvent etre representes par la somme des 
cubes de leurs chiffres. 

A titre d'exemple, 153 = 1 +5 +3 est un nombre cubique. 
Ecrire un algorithme permettant de determiner les 3 autres. 
Note : les 4 nombres sont compris entre 150 et 410. 

Exercice 11 

Un nombre parfait est un nombre presentant la particularity d'etre egal a la somme de 
tous ses diviseurs, excepte lui-meme. 

Le premier nombre parfait est 6 = 3 + 2 + 1 . 

Ecrire un algorithme qui affiche tous les nombres parfais inferieurs a 1000. 
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Correction du TD 3 



Exercice 1 

Algorithme Diviseurs 
Var 

n,i : Entier 

Debut 

Ecrire("Entrer un entier positif-'), Lire(n) 
Pour i de 1 an Faire 

Si ( n Mod i = 0 ) Alors (* Si le reste de la valeur de n est egale dO *) 
Ecrie(i) 

Fin Si 
Fin Pour 

Fin. 

Exercice 2 

■ Version Pour. . . Faire 
Algorithme Facto 
Var 

n,i,f : Entier 
Debut 

Ecrire("Entrer un entier positif-'), Lire(n) 

f ^- 1 (* initialisation de la factorielle a 1 puisque 11=1 *) 

Pour i de 2 a n Faire 

f ^- f * i (* Pour chaque parcours on multiplie I'ancienne valeur de f par 
Fin Pour 
Ecrire(n,"!=",f) 
Fin. 



■ Version Tant que. . . Faire 
Algorithme Facto 
Var 

n,i,f : Entier 
Debut 

Ecrire("Entrer un entier positif-'), Lire(n) 

f^-\(* initialisation de la factorielle a 1 puisque 11=1 *) 

i 4r2 (* initialisation du compteur i *) 

Tant que(i<n) Faire 

f^-f*i(* Pour chaque parcours on multiplie I'ancienne valeur de f par i*) 

i ^- i + 1 (* incrementation du compteur i *) 
Fin Pour 
Ecrire(n,"!=",f) 
Fin. 
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■ Version Repeter. . . Jusqu 'a 
Algorithme Facto 
Var 

n,i,f : Entier 
Debut 

Ecrire("Entrer un entier positif-'), Lire(n) 

f <- 1 ( * initialisation de la factorielle a 1 puisque 11=1 *) 

i <r2 (* initialisation du compteur i *) 

Repeter 

f f * i (* Pour chaque parcours on multiplie I'ancienne valeur de f par i*) 

i ^- i + 1 (* incrementation du compteur i *) 
Jusqu'a (i=n) 
Ecrire(n,"!=",f) 
Fin. 

Exercice 3 

Algorithme Notes 
Var 

n, i: Entier 

note, min, max, s : Reel 

Debut 

Ecrire("Entrer le nombre de notes=") 

Lire(a) (* On suppose que n est toujours superieur a zero *) 

s<rO 

min^- 0 

max 0 

Pour i de 1 an Faire 

Ecrire("Entrer une note="), Lire(note) 

s <- s + note (* additionner la nouvelle note *) 

Si ( note < min ) Alors 

min <- note (* memorisation de la nouvelle valeur minimale *) 

Fin Si 

Si ( note > min ) Alors 

max note (* memorisation de la nouvelle valeur maximale *) 

Fin Si 
Fin Pour 

Ecrire("Meilleur note = ",max) 
Ecrire("Mauvaise note = ",min) 
Ecrire("Moyenne des notes = ",s/n) 

Fin. 



Exercice 4 

Algorithme Puissance 
Var 

a, c : Reel 

b, i: Entier 

Debut 

Ecrire("Entrer la valeur de a="), Lire(a) 
Ecrire("Entrer la valeur de b="), Lire(b) 
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c ^- 1 (* initialisation du resultat du produit *) 
Pour i de 1 a Abs(b) Faire 

c c * a (*produit de axa b fois *) 
Fin Pour 

Si ( b < 0 ) Alors (* si b est negative alors le resultat sera 1/c *) 
cf 1/c 

Fin Si 

Ecrire(a," a la puissance ",b,"=",c) 

Fin. 

Exercice 5 

Algorithme Premier 
Var 

n,i,nb_div: Entier 

Debut 

Ecrire("Entrer un entier possitif-'), Lire(n) 

nb_div 4- 0 ( * initialisation du nombre de diviseurs*) 

i <r 1 

Tant que (i <= n) Faire 

Si ( n Mod i = 0 ) Alors 

nb_div nb_div + 1 (* incrementation du nombre de diviseurs *) 

FinSi 

Fin Tant que 

Si (nb_div <= 2) Alors 

Ecrire("C'est un nombre premier") 

Sinon 

Ecrire("Ce n'est pas un nombre premier") 

Fin Si 

Fin. 

Exercice 6 

Algorithme PGCD 
Var 

a,b: Entier 

Debut 

Ecrire("Entrer la valeur de a ="), Lire(a) 
Ecrire("Entrer la valeur de b ="), Lire(b) 
Repeter 

Si ( a > b ) Alors 
a <- a - b 

FinSi 

Si ( a < b ) Alors 

b^b-a 

FinSi 
Jusqu a ( a =b ) 

Ecrire("Le PGCD =",a) 

Fin. 
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Exercice 7 

Algorithme PPCM 
Var 

a,b,i,x: Entier 

Debut 

Ecrire("Entrer la valeur de a ="), Lire(a) 
Ecrire("Entrer la valeur de b ="), Lire(b) 
Si ( a < b ) Alors 



FinSi 
i«- 1 

Tant que (((i*a) Mod b) # 0) Faire 

i <- i+1 
Fin Tant que 

Ecrire("PPCM =",i*a) 

Fin. 



Exercice 8 

Algorithme Fibo 
Var 

fO,fl,f,i: Entier 

Debut 

ff) <r 1 

Ecrire("f0 = ",fD) 
f 1 <r 1 

Ecrire("fl = ",fl) 
Pour i de 2 a 9 Faire 



Fin Pour 

Fin. 

Exercice 9 

Algorithme Somme 
Var 

n,i: Entier 
s : Reel 

Debut 

Ecrire("Entrer la valeur de n = "), Lire(n) 
s ^- 0 ( * initialisation de la somme *) 
Pour i de 1 a n Faire 

s<- s + 1/i (* incrementer la somme avec la nouvelle valeur de 1/i *) 
Fin Pour 

Ecrire("somme=",s) 



x <- a 
a^b 
b 



^* *) 

(* Permutation *) 
^* *) 



f <r fD + fl 
Ecrire("f ' ,i," = ",f) 
fD <r fl 
fl <r f 



Fin. 
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Exercice 10 



Algorithme cubique 
Var 

i, centaine, dizaine, unite: Entier 

Debut 

Pouride 150 a 410 Faire 

centaine <r i Div 100 (* ex : i=150 + centaine 

dizaine <- ( i Mod 100) Div 10 (* ex : i=150 dizaine = 
unite <r (i Mod 100) Mod 10 (* ex : i=150 ■> unite = 0 
Si (( centaine A 3 + dizaine A 3+unite A 3) = i) Alors 
Ecrire(i," est un nombre cubique") 

Fin Si 
Fin Pour 

Fin. 

Remarque : les nombres cubiques sont : 153, 370, 371 et 407 

Exercice 11 

Algorithme parfaits 
Var 

i, n, s, j: Entier 

Debut 

Pouride 1 a 1000 Faire 
s «-0 

Pour j de 1 a ( i Div 2 ) Faire 
Si (i Mod j = 0) Alors 

s <- s + j 

Fin Si 

Pour 
Fin Pour 
Si ( s= i) Alors 

Ecrire(i, " est un nombre parfait") 

Fin Si 

Fin. 

Remarque : les nombres parfait inferieurs a 1000 sont : 6, 28, 496. 
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Module : Algorithmique et structures de donnees I 


Classe : l" re LFIAG 
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TD n°4 

(Les chaines de caracteres) 

Objectif 

S Construire des algorithmes qui traitent des caracteres et des chaines de caracteres. 
Exercice 1 

Ecrire un algorithme qui lit un caractere au clavier puis affiche son predecesseur, son 
successeur et le code ASCII de son equivalent en majuscule. 

Exercice 2 

Ecrire un algorithme qui lit une lettre au clavier puis affiche s'il s'agit d'une consonne 
ou d'une voyelle. 

Remarque : Les voyelles sont :"A", "a", "E", "e", "I", "i", "O", "o", "U", "u", "Y", "y". 
Exercice 3 

Ecrire un algorithme "Palind" qui lit une chaine de caracteres et verifie si cette chaine 
est un palindrome ou non. 

Un palindrome est un mot qui peut etre lu indifferemment de droite a gauche ou de 
gauche a droite (Exemple: "AZIZA", "LAVAL", "RADAR",.. .). 

Exercice 4 

Ecrire un algorithme qui lit une chaine de caracteres puis affiche son inverse. 
Exemple: Si la chaine entree est "algo", l'algorithme doit afficher "ogla" 
Exercice 5 

Ecrire un algorithme qui lit une chaine de caracteres et renvoie son equivalent en 
majuscules. 

Exercice 6 

Ecrire un algorithme qui permet de compter le nombre de mots dans une phrase. 

La phrase commence obligatoirement par une lettre et les mots sont separes par des 
espaces. 

Exercice 7 

Ecrire un algorithme qui determine et affiche le mot le plus long dans une phase 
donnee. 

Exercice 8 

Ecrire un algorithme qui lit : 

■ Un mot (chaine de caractere formee uniquement de lettres) 

■ Une lettre 

Puis affiche le nombre d'apparitions de la lettre dans le mot. 
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Correction du TD 4 



Exercice 1 

Algorithme Caract 
Var 

c : Caractere 

Debut 

Ecrire("Entrer un caractere-'), Lire(c) 

Ecrire(pred(c)) (* affichage du predecesseur du caractere c *) 
Ecrire(succ(c)) (* affichage du successeur du caractere c *) 
Ecrire(asc(majus(c)) (* affichage du code ASCII du majuscule de caractere c *) 

Fin. 

Exercice 2 

Algorithme Cons Voy 
Var 

c : Caractere 

Debut 

Repeter 

Ecrire("Entrer une lettre:"), Lire(c) (* saisie controler d'une lettre *) 
Jusqu'a ( c >= "A" ET c <= "Z") OU ( c>= "a" ET c<="z") 
Si (Majus(c) = "A") OU (Majus(c) = "E") OU (Majus(c) = "I") 

OU (Majus(c) = "O") OU (Majus(c) = "U") OU (Majus(c) = "Y") Alors 

Ecrire(c," est une voyelle") 

Sinon 

Ecrire(c," est une consonne") 

Fin Si 

Fin. 

Exercice 3 

Algorithme Palind 
Var 

ch: Chaine 
i, L : Entier 
Pal : Booleen 

Debut 

Ecrire("Entrer une chaine non vide="), Lire(ch) 
L <- long(ch) (* longueur de la chaine *) 

Pal <- Vrai (* on suppose initialement que la chaine est palindrome *) 
i ^- 1 (* initialisation du compteur i *) 

Tant que ( i <= L Div 2) ET (Pal) Faire (* Parcours de la chaine jusqu'a la moitie *) 
Si ( ch[i] = ch[L-i+l] ) Alors (* s'il sont egaux alors on incremente *) 
i 4r i + 1 (* incrementation *) 

Sinon 

Pal <- Faux (* s'ily' a deux lettres differ entes alors on s'arrete *) 

Fin Si 
Fin Tant que 
Si (Pal) Alors 

Ecrire(ch, " est un palindrome") 

Sinon 

Ecrire(ch, " n'est pas un palindrome") 

Fin Si 

Fin. 
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Exercice 4 

Algorithme inverse 
Var 

i,L : Entier 
chl,ch2: Chaine 

Debut 

Ecrire("Entrer une chaine :"), Lire(chl) 
L <- Long(chl) (* Longueur de la chaine *) 
ch2 <- "" (* initialisation de la chaine inverse *) 
Pour i de L a 1 Faire (pas=-l) 

Inserer(ch[i] ,ch2,L-i+ 1 ) 

//ou aussi ch2[i] <-ch[L-i+l] 
Fin Pour 

Ecrire("Inverse de la chaine=", ch2) 

Fin 

Exercice 5 

Algorithme Majuscule 
Var 

i,L : Entier 
chl,ch2: Chaine 

Debut 

Ecrire("Entrer une chaine :"), Lire(chl) 

L Long(chl) (* Longueur de la chaine *) 

ch2 "" (* initialisation de la nouvelle chaine au vide *) 

Pour i de 1 a L Faire 

ch2 <-ch2 + Majus(chl[i]) (* conversion de chaque lettre en majuscule *) 
Fin Pour 

Ecrire("Chaine en majuscule=", ch2) 

Fin 

Exercice 6 

Algorithme Comptage Mots 
Var 

i,L,nb_mot : Entier 
phase: Chaine 

Debut 

Ecrire("Entrer une phrase non vide :"), Lire(phrase) 
L <- Long(phrase) (* longueur de la phrase *) 

Nb_mot 4- 1 (* initialisation du compteur de mot //par defaut on un seul mot *) 
Pour i de 1 a L Faire 

Si (phrase[i] = " ") Alors 

nb_mot V" nb_mot + 1 (* si on trouve on espace on incremente le Nbjnot *) 

Fin Si 
Fin Pour 

Ecrire("Nombre de mots =", nbjnot) 

Fin 
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Exercice 7 

Algorithme PlusLongMot 
Var 

i,j,L: Entier 

phase, mot, motpl: Chaine 

Debut 

Ecrire("Entrer une phrase:"), Lire(phrase) 
L <- Long(phrase) 

motpl "" (* initialisation du mot le plus long *) 

Tant que ( i <= L ) Faire 

mot 4r "" (* initialisation du mot courant *) 

j*i 

Tant que ((j <=L) ET (phase^'] # " ")) Faire 

mot <- mot + phraseQ] f* creation du mot *) 

Fin Tant que 

Si (long(mot) > long(motpl)) Alors 

Motpl <- mot retenir le nouveau mot le plus grand *) 

Fin Si 
i^j+1 
Fin Tant que 

Ecrire("Le mot le plus grand est =", motpl) 

Fin 

Exercice 8 

Algorithme frequence 
Var 

i,L,nb: Entier 
mot: Chaine 
lettre : Caractere 

Debut 

Ecrire("Entrer un mot:"), Lire(mot) 
Ecrire("Entrer une lettre:"), Lire(lettre) 
L <- Long(mot) (* longueur du mot *) 

nb ^- 0 ( * initialisation du compteur d'occurrence de la lettre cherchee *) 
Pour i de 1 a L Faire 

Si (mot[i] = lettre) Alors 

nb ^- nb + 1 (* incrementation du nombre d'occurrence *) 

Fin Si 
Fin Pour 

Ecrire(lettre," apparait ", nb, " fois dans ", mot) 

Fin 
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TD n°5 

(Procedures et fonctions) 

Objectifs 

^ Appliquer la demarche de programmation modulaire pour construire des algorithmes 

structures en procedures et fonctions 
^ Savoir le mode de passage de parametre d'une procedure et une fonction 
^ Apprendre et distinguer Vappel d'une procedure et une fonction 

Exercice 1 

Ecrire une procedure puissance qui calcule c = a b = axaxax...xa(b fois); a et b 
etant des entiers positifs. Tester cette procedure 

Exercice 2 

Ecrire une procedure permut qui permet d'echanger les valeurs de 2 entiers a et b. 
Tester cette procedure 

Exercice 3 

Ecrire une fonction minimum qui retourne le minimum de 2 entiers a et b. 
Tester cette fonction 

Exercice 4 

1. On appelle bigramme une suite de deux lettres. Ecrire une procedure qui calcule 
le nombre d'occurrences d'un bigramme dans une chaine de caracteres. 

2. Peut-on transformer cette procedure en fonction? Si oui ecrire cette fonction. 
Exercice 5 

Ecrire une fonction Triangle qui permet de verifier si les 3 nombres a,b et c peuvent 
etre les mesures des cotes d'un triangle rectangle. 

Remarque: D'apres le theoreme de Pythagore, si a, b et c sont les mesures des cotes 
d'un rectangle, alors a 2 = b 2 + c 2 ou b 2 = a 2 + c 2 = a 2 + b 2 
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Correction du TD 5 



Exercice 1 



b 





Puissance 




► 


► 


► 



Procedure Puissance(a,b : Entier, var c : Entier) 
Var 

i : Entier 

Debut 

c <-l 

Pour i de 1 a b Faire 

c <- c * a 
Fin Pour 

Fin 

Algorithme Test {programme principal} 
Var 

x,y,r : Entier 

Debut 

Ecrire("Entrer un entier x="), Lire(x) 
Ecrire("Entrer un entier y="), Lire(y) 
Puissance(x,y,r) //appel de la procedure 
Ecrire(x," a la puissance de ",y, " =",r) 

Fin. 

Exercice 2 



b 



> 






> 


Permut 


► 






■ ► 



Procedure Permut(var a,b : Entier) 
Var 

aux : Entier 

Debut 

aux ^- a 
A^b 

b aux 

Fin 

Algorithme Test {programme principal} 
Var 

x,y : Entier 

Debut 

Ecrire("Entrer un entier x="), Lire(x) 
Ecrire("Entrer un entier y="), Lire(y) 
Permut(x,y) //appel de la procedure 
Ecrire(La nouvelle valeur de x=",x, " et de y=",y) 

Fin. 
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Exercice 3 

Fonction Minimum(a,b : Entier) : Entier 
Var 

min : Entier 

Debut 

Si ( a<= b) Alors 
min <- a 

Sinon 

min <- b 

Fin Si 

Fin 

Algorithme Test {programme principal} 
Var 

x,y,m : Entier 

Debut 

Ecrire("Entrer un entier x="), Lire(x) 
Ecrire("Entrer un entier y="), Lire(y) 
m <- Minimum(x,y) (* appel de la fonction *) 
Ecrire(Le minimum est=",m) 

Fin. 

Exercice 4 

Procedure freqfbigram : Chaine[2]; chn:Chaine; var nb: Entier) 
Var 

i, L : Entier 

Debut 

L Long(chn) 
nb^O 

Pour i de 1 a (L-l) Faire 

Si (chn[i]=bigram[l] ET (chn[i+l]=bigram[2]) Alors 
nb <- nb + 1 

Fin Si 
Fin Pour 

Fin 

Cette procedure possede un seul parametre resultat de type entier, done elle peut etre 
remplacee par une fonction. 

Procedure freq(bigram : Chaine[2]; chn:Chaine): Entier 
Var 

i, L : Entier 

Debut 

L <- Long(chn) 
nb^O 

Pour i de 1 a (L-l) Faire 

Si (chn[i]=bigram[l] ET (chn[i+l]=bigram[2]) Alors 
nb <- nb + 1 

Fin Si 

Fin Pour 

freq nb (^affectation du resultat a la fonction *) 

Fin 
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Exercice 5 

Fonction triangle(a,b,c : Reel) : Booleen 
Debut 

Si ( a A 2=b A 2+c A 2) OU (b A 2=a A 2+c A 2) OU (c A 2=a A 2+b A 2) Alors 
triangle <- Vrai 

Sinon 

triangle <- Faux 

Fin Si 

Fin 
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TD n°6 

(Les Tableaux) 

Objectifs 

S Maitriser la manipulation des tableaux a une ou a deux dimensions. 

S Traitement des problemes de recherche dans un tableau (Recherche sequentielle, Recherche 

dichotomique; 
^ Savoir les principaux algorithmes de tri d'un tableau. 

Exercice 1 

Ecrire une procedure Remplir permettant le remplissage d'un tableau de n entiers. 
Exercice 2 

Ecrire une procedure Afftcher permettant l'afficher les elements d'un tableau de n entiers. 
Exercice 3 

Ecrire une fonction Minimum permettant de chercher le minimum dans un tableau T 
de n entiers. 

Exercice 4 

Ecrire une fonction Recherche seq qui permet de cherche un element x dans un 
tableau T. La fonction renvoie Vrai s'il est existant et Faux sinon. 

Exercice 5 

Meme exercice que n° 3 mais on suppose que le tableau est trie. 
Exercice 6 

Donner le principe et l'algorithme de tri de : 

■ Tri a bulle 

■ Tri par selection 

■ Tri par insertion 

Exercice 7 

Ecrire une procedure qui permet de fusionner deux tableaux tries A et B contenant 
respectivement n et m elements. Le resultat est un tableau trie C a (n+m) elements. 

Exemple: 

■ A I 1 I 20 I 41 1 



B 


19 


23 


27 


54 


91 



C 


1 


20 


41 


19 


23 


27 


54 


91 



Exercice 8 

1. Ecrire une procedure permettant de remplir une matrice; 

2. Ecrire une procedure permettant d'afficher une matrice; 

3. Ecrire une fonction qui renvoie la somme de deux matrices Ml et M2; 

4. Ecrire une fonction qui renvoie le produit de deux matrices Ml et M2; 
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Correction du TD 6 



lple de declaration d'un tableau 



Constantes 

n= 100 

Type 



Tab = Tableau[l..n] de Entier 
Var 

T:Tab 



Exemple de declaration d'une matrice 

Constantes 

n= 100 
m= 100 

Type 

Mat = Tableau[l..n,l..m] de Enti 

Var 

Matrice : Mat 



Exercice 1 

Procedure Remplir (var T : Tab; n: Entier) 
Var 

i : Entier 

Debut 

Pour i de 1 a n Faire 

Ecrire("T[",i,"]="),Lire(T[i]) 
Fin Pour 

Fin 

Exercice 2 

Procedure Afficher (T : Tab; n: Entier) 
Var 

i : Entier 

Debut 

Pour i de 1 a n Faire 

Ecrire(T[i], " ") 
Fin Pour 

Fin 

Exercice 3 

Fonction Minimum(T : Tab) : Entier 
Var 

min : Entier 

Debut 

min <- T[l] 

Pour i de 2 a n Faire 

Si ( min> T[i] ) Alors 
min <- a 

Fin Si 
Fin Pour 

Fin 
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Exercice 4 

Principe de la recherche sequentielle : 

Comparer x aux differents elements du tableau jusqu'a trouver x ou atteindre la fin du tableau. 



■ Version avec Repeter. . . jusqu 'a 

Fonction Rechercheseq (T:Tab; n,x:Entier) : Booleen 
Var 

i, : Entier 



Debut 

i<-0 
Repeter 

i 

Jusqu'a (T[i]=x) OU (i = n) 

Si(T[i]=x) Alors 

Recherche seq <- Vrai 

Sinon 

Recherche seq <- Faux 

Fin Si 



■ Version avec Tant que. . . Faire 

Fonction Recherche seq (T:Tab; n,x:Entier) : Booleen 
Var 

i, : Entier 

Debut 

i 1 

Tant que (T[i] # x) ET (i <=n) Faire 

i 

Fin Tant que 

Si(T[i]=x) Alors 

Recherche seq <- Vrai 

Sinon 

Recherche seq Faux 

Fin Si 

Fin 



Exercice 5 

Principe de la recherche dichotomique : 

Le but de la recherche dichotomique est de diviser l'intervalle de recherche par 2 a chaque 
iteration. Pour cela, on procede de la fa?on suivante : 

Soient premier et dernier les extremites gauche et droite de l'intervalle dans lequel on cherche 
la valeur x, on calcule m, l'indice de l'element median : 

m = (premier + dernier ) Div 2 
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II y a trois cas possibles : 

■ x < T[m] : l'element x, s'il existe, se trouve dans l'intervalle [premier.. m-1]. 

■ x > T[m] : l'element x, s'il existe, se trouve dans l'intervalle [m+1... dernier]. 

■ x = T[m] : l'element de valeur x est trouve, la recherche est terminee. 

La recherche dichotomique consiste a iterer ce processus jusqu'a ce que Ton trouve x ou que 
l'intervalle de recherche soit vide. 



Fonction Recherche_dich(T:Tab; n,x:Entier) : Booleen 
Var 

premier, m, dernier : Entier 
trouve : Booleen 

Debut 

premier <- 1 
dernier <- n 
trouve <r Faux 
Repeter 

m ^-(premier + dernier) Div 2 

(1) 

Exercice 6 

■ Tri a bulle 
Principe : 



Si ( x < T[m] ) Alors 
dernier <- m - 1 
Sinon Si ( x > T[m] ) Alors 

premier m + 1 
Sinon 

trouve Vrai 
Fin Si 

Jusqu'a (trouve=vrai) OU (premier>dernier) 
Recherche dich <r trouve 
Fin 

(2) 



On repete le traitement suivant : 

Parcourir les elements du tableau de 1 a (n-1); si l'element i est superieur a l'element 
(i+1), alors on permute. 

Le programme s'arrete lorsque aucune permutation n'est realisable. 

Procedure Tri_Bulles( var T: Tab; n: Entier) 
Var 

i, aux : Entier 
echange : Booleen 

Debut 

Repeter 

echange <- Faux 

Pour i de 1 a (n-1) Faire 

Si(T[i] > T[i+1]) Alors 

aux <- T[i] 

T[i] <- T[i+1] 

T[i+1] <- aux 

echange <-Vrai 

Fin Si 
Fin Pour 
Jusqu'a (echange = Faux) 

Fin 

Optimisation de la procedure du Tri a bulle 
Procedure Tri_Bulles( var T: Tab; n: Entier) 
Var 

i, aux : Entier 
echange : Booleen 
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Debut 

Repeter 

echange <r Faux 

Pour i de 1 a (n-1) Faire 

Si(T[i]>T[i+l])Alors 
aux <- T[i] 
T[i] <- T[i+1] 
T[i+1] <r aux 
echange <-Vrai 

Fin Si 
Fin Pour 



n^n-1 



Jusqu'a (echange = Faux) 

Fin 

Trace d'execution 

Tableau initial 
Apres la l ere iteration 
Apres la 2 eme iteration 
Apres la 3 eme iteration 
Apres la 4 iteration 

■ Tri par selection 

Principe : 

Cette methode consiste : 

- chercher l'indice du plus petit element du tableau T[l ..n] et permuter l'element 
correspondant avec l'element d'indice 1; 

- chercher l'indice du plus petit element du tableau T[2..n] et permuter l'element 
correspondant avec l'element d'indice 2; 

- chercher l'indice du plus petit element du tableau T[n-l..n] et permuter 
l'element correspondant avec l'element d'indice (n-1); 

Procedure Tri_Selection( var T: Tab; n: Entier) 
Var 

i,j,aux,indmin: Entier 

Debut 

Pour i de 1 a (n-1) Faire 
indmin i 

Pour j de (i+1) a n Faire 

Si(T[j] < T[indmin]) Alors 
indmin <- j 

Fin Si 
Fin Pour 

aux <- T[i] 
T[i] <r T[indmin] 
T [indmin]^- aux 
Fin Pour 

Fin 
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Trace d'execution 



Tableau initial 
Apres la l ere iteration 



6 


4 


2 


1 


4 




1 


4 


2 


6 


4 



Apres la 2 eme iteration 
Apres la 3 eme iteration 






4 | 6 ! 4 








4 } 6 


4 



Apres la 4 eme iteration 



■ Tri par insertion 



Principe : 

Cette methode consiste a prendre les elements de la liste un par un et inserer chacun 
dans sa bonne place de facon que les elements traites forment une sous-liste triee. 
Pour ce faire, on procede de la facon suivante : 

- comparer et permuter si necessaire T[l] et T[2] de facon a placer le plus petit 
dans la case d'indice 1 

- comparer et permuter si necessaire l'element T[3] avec ceux qui le precedent 
dans l'ordre (T[2] puis T[l]) afin de former une sous-liste triee T[1..3] 

- comparer et permuter si necessaire l'element T[n] avec ceux qui le precedent 
dans l'ordre (T[n-1] , T[n-2],. . .) afin d'obtenir un tableau trie. 

Procedure Tri_Insertion( var T: Tab; n: Entier) 
Var 

i,j,x,pos: Entier 

Debut 

Pour i de 2 a n Faire 

pos <- i -1 

Tant que (pos >=1) ET (T[pos] >T[i]) Faire 

pos pos - 1 
Fin Tant que 
pos pos + 1 

x <e T[i] 

Pour j de (i-1) a pos [pas = -1] Faire 

TQ+1] <r T[j] 
Fin Pour 
T[pos]<-x 
Fin Pour 

Fin 



Trace d'execution 



Tableau initial 


6 


4 


2 


1 


4 


Apres la l ere iteration 


4 


6 


2 


6 


4 


Apres la 2 eme iteration 


2 


4 


6 


6 


4 


Apres la 3 eme iteration 


1 


2 


4 


6 


4 


Apres la 4 eme iteration 
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Exercice 7 



Procedure Fusion (A : Tab; B:Tab; var C:Tab; n, m:Entier; var k :Entier) 



Var 



Debut 




i,j : Entier 

Tant que (i <=n) ET (j <= m) Faire 

Si(A[i] <=B[j]) Alors 
CM <r A[i] 
i <r i+ 1 

Fin Si 

Si (B[j] <= A[i]) Alors 
C[k] <r B[j] 

k^k+1 

Fin Si 
Fin Tant que 




On a I' element de A et 
plus petit que B alors 
on ajoute A dans C 



On a V element de A et 
plus grand que B alors 
on ajoute B dans C 



Tant que (i <=n) Faire 
C[k]«-A[i] 
i <r i+ 1 

k ^k+1 

Fin Tant que 
Tant que (j <=m) Faire 
C[k] <r B[j] 

k ^k+1 
Fin Tant que 




Si on a encore des elements 
dans A alors on les rajoute 
successivement dans C 




Si on a encore des elements 
dans B alors on les rajoute 
successivement dans C 



Fin 
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Exercice 8 



1. Remplissage d'une matrice 

Procedure Remplir (var matrice : Mat; n,m: Entier) 
Var 

i,j : Entier 

Debut 

Pour i de 1 a n Faire 

Pour j de 1 a m Faire 

Ecrire("Entrer un entier : "),Lire(T[i,j]) 
Fin Pour 
Fin Pour 

Fin 

2. Affichage d'une matrice 

Procedure Afficher (matrice : Mat; n,m: Entier) 
Var 

i,j : Entier 

Debut 

Pour i de 1 a n Faire 

Pour j de 1 a m Faire 
Ecrire(T[i,j]) 

Fin Pour 
Fin Pour 

Fin 

3. Somme de deux matrices 

Principe : 

Soient Ml et M2 deux matrices a n ligne et m colonnes. 
M3 = Ml + M2 



Exemple 
Ml= 



1 


2 


3 


4 


5 


6 



M2 



2 


5 


3 


3 


0 


1 



M3= 



3_ 
7 



Procedure SomMat (M1,M2 : Mat ; var M3 : Mat; n,m: Entier) 
Var 

i,j : Entier 

Debut 

Pour i de 1 a n Faire 

Pour j de 1 a m Faire 

M3[i,j]^Ml[ij] + M2[ij] 

Fin Pour 
Fin Pour 

Fin 
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4. Produit de deux matrices 



Principe : 

Soient Ml et M2 deux matrices a n ligne et m colonnes. 
M3 = Ml * M2 

M3ij = Ml u * M2i d + Ml i>2 * M2 2j + ... + M1 U * M2 mj 
Exemple 



Ml= 
M3= 



1 


2 


3 


4 


0 


5 



2 


1 


3 


0 


1 


4 



11 


13 


13 


24 



M2= 



Procedure ProdMat (M1,M2 : Mat ; var M3 : Mat; n,m: Entier; var k : Entier) 
Var 

i,j : Entier 

Debut 

Pour i de 1 a n Faire 

Pour j de 1 a m Faire 
M3[ij] 0 
Pour k de 1 a m Faire 

M3[i,j] ^ M3[i,j] + Ml[i,k] * M2[k,j] 
Fin Pour 
Fin Pour 
Fin Pour 

Fin 
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